home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 5 / DISK2058.ZIP / UNFAST.EXE / DSCR.F < prev    next >
Text File  |  1980-01-01  |  991b  |  59 lines
  1. ;===========================================================================
  2. ;Print screen utility to disk.
  3. ;===========================================================================
  4.  
  5. #short
  6. #inpend=0
  7.  
  8. setint 5 to printscr
  9. print bios "DSCR installed."
  10. pokeb 0|500h,0
  11. stop resident
  12.  
  13. ;===========================================================================
  14.  
  15. buffer ? 25*82+1
  16.  
  17. printscr:
  18. pushall
  19. reg ds=reg cs
  20. if peekb 0|500h then goto exitscr
  21. video=0b800h-(800h*mono)+page*100h
  22. pokeb 0|500h,1
  23.  
  24. m=0:b=buffer
  25. repeat 25
  26.     {
  27.     ob=b
  28.     repeat 80
  29.     {
  30.     c=video[m]b:if (c=0) or (c=255) then c=' '
  31.     pokeb b,c
  32.     b++:m+=2
  33.     }
  34.     while (b>ob) and (peekb(b-1)=' ')  b--
  35.  
  36.     pokeb b,13:b++
  37.     pokeb b,10:b++
  38.     }
  39. pokeb b,26
  40.  
  41. oc=curpos
  42. open window wname
  43. cursor 20,28:inputs name
  44. if peekb (name+2) then save name+2,buffer,b+1
  45. close window
  46. curpos=oc
  47.  
  48. pokeb 0|500h,0
  49.  
  50. exitscr:
  51. popall
  52. iret
  53.  
  54. wname:
  55. datab 0,0,26,18,54,22,7,26
  56.  
  57. name:
  58. string 26
  59.